home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbpacket.zip / MUSIC.BAS < prev    next >
BASIC Source File  |  1992-03-27  |  16KB  |  523 lines

  1. DECLARE SUB PreludioXV ()
  2. DECLARE SUB PreludioIV ()
  3. DECLARE SUB ChickenSoup ()
  4. DECLARE SUB EentsyWeentsySpider ()
  5. DECLARE SUB HickoryDickoryDock ()
  6. DECLARE SUB LittleGreenFrog ()
  7. DECLARE SUB AngelsWeHaveHeardOnHigh ()
  8. DECLARE SUB WhereIsThumbkin ()
  9. DECLARE SUB ShellBeCominRoundTheMountain ()
  10. DECLARE SUB LittlePeterRabbit ()
  11. DECLARE SUB DownByTheStation ()
  12. DECLARE SUB PartitaInE ()
  13. DECLARE SUB TheTrain ()
  14. DECLARE SUB Bingo ()
  15. DECLARE SUB JohnJacobJingleheimerSchmidt ()
  16. DECLARE SUB ALostBalloon ()
  17. DECLARE SUB GoodEnoughToEat ()
  18. DECLARE SUB LittleCabinInTheWood ()
  19. DECLARE SUB StarSpangledBanner ()
  20. DECLARE SUB OldMacDonaldHadAFarm ()
  21. CLS
  22.  
  23. DoStatement:
  24. DO
  25.    CLS
  26.    COLOR 12
  27.    LOCATE 1, 73
  28.    PRINT "Page 1"
  29.    COLOR 6
  30.    LOCATE 1, 38
  31.    PRINT "MENU"
  32.    PRINT
  33.    COLOR 2
  34.    PRINT " 1. A Lost Balloon"
  35.    PRINT " 2. Angels We Have Heard On High"
  36.    PRINT " 3. Bach IV Preludio"
  37.    PRINT " 4. Bach Partita In E"
  38.    PRINT " 5. Bach XV Preludio"
  39.    PRINT " 6. Bingo"
  40.    PRINT " 7. Chicken Soup"
  41.    PRINT " 8. Down By The Station"
  42.    PRINT " 9. Eentsy Weentsy Spider"
  43.    PRINT "10. Good Enough To Eat"
  44.    PRINT "11. Hickory Dickory Dock"
  45.    PRINT "12. John Jacob Jingleheimer Schmidt"
  46.    PRINT "13. Little Cabin In The Wood"
  47.    PRINT "14. Little Green Frog"
  48.    PRINT "15. Little Peter Rabbit"
  49.    PRINT "16. Old MacDonald Had A Farm"
  50.    PRINT "17. She'll Be Comin' 'Round The Mountain"
  51.    PRINT "18. ";
  52.    COLOR 20
  53.    PRINT "GO TO PAGE TWO"
  54.    LOCATE 23, 24
  55.    COLOR 5
  56.    LINE INPUT "Enter your choice here (1-18): "; c$
  57.    Choice = VAL(c$)
  58.    SELECT CASE Choice
  59.       CASE 1
  60.          Name$ = "A Lost Balloon, by H. Baron Moss and Ed Kooperman"
  61.          Time% = 74
  62.       CASE 2
  63.          Name$ = "Angels We Have Heard On High"
  64.          Time% = 43
  65.       CASE 3
  66.          Name$ = "the IV Preludio, by Johann Sebastian Bach"
  67.          Time% = 66
  68.       CASE 4
  69.          Name$ = "the Partita in E, by Johann Sebastian Bach"
  70.          Time% = 77
  71.       CASE 5
  72.          Name$ = "the XV Preludio, by Johann Sebastian Bach"
  73.          Time% = 42
  74.       CASE 6
  75.          Name$ = "Bingo"
  76.          Time% = 9
  77.       CASE 7
  78.          Name$ = "Chicken Soup, by H. Baron Moss and Jack Pincus"
  79.          Time% = 70
  80.       CASE 8
  81.          Name$ = "Down By The Station"
  82.          Time% = 12
  83.       CASE 9
  84.          Name$ = "Eentsy Weentsy Spider"
  85.          Time% = 18
  86.       CASE 10
  87.          Name$ = "Good Enough To Eat, by H. Baron Moss and Muriel Moss"
  88.          Time% = 72
  89.       CASE 11
  90.          Name$ = "Hickory Dickory Dock"
  91.          Time% = 9
  92.       CASE 12
  93.          Name$ = "John Jacob Jingleheimer Schmidt"
  94.          Time% = 14
  95.       CASE 13
  96.          Name$ = "Little Cabin In The Wood"
  97.          Time% = 25
  98.       CASE 14
  99.          Name$ = "Little Green Frog"
  100.          Time% = 12
  101.       CASE 15
  102.          Name$ = "Little Peter Rabbit"
  103.          Time% = 16
  104.       CASE 16
  105.          Name$ = "Old MacDonald Had A Farm"
  106.          Time% = 16
  107.       CASE 17
  108.          Name$ = "She'll Be Comin' 'Round The Mountain"
  109.          Time% = 22
  110.       CASE 18
  111. DoStatement2:
  112.          DO
  113.             CLS
  114.             COLOR 12
  115.             LOCATE 1, 73
  116.             PRINT "Page 2"
  117.             COLOR 6
  118.             LOCATE 1, 38
  119.             PRINT "MENU"
  120.             PRINT
  121.             COLOR 2
  122.             PRINT "19. Star Spangled Banner"
  123.             PRINT "20. The Train"
  124.             PRINT "21. Where Is Thumbkin?"
  125.             PRINT "22. ";
  126.             COLOR 20
  127.             PRINT "GO BACK TO PAGE ONE"
  128.             COLOR 2
  129.             PRINT "23. ";
  130.             COLOR 20
  131.             PRINT "EXIT"
  132.             LOCATE 23, 24
  133.             COLOR 5
  134.             LINE INPUT "Enter your choice here (19-23): "; c$
  135.             Choice2 = VAL(c$)
  136.             SELECT CASE Choice2
  137.                CASE 19
  138.                   Name$ = "the Star Spangled Banner, by Francis Scott Key"
  139.                   Time% = 38
  140.                CASE 20
  141.                   Name$ = "The Train"
  142.                   Time% = 12
  143.                CASE 21
  144.                   Name$ = "Where is Thumbkin?"
  145.                   Time% = 12
  146.                CASE 22
  147.                   GOTO DoStatement
  148.                CASE 23
  149.                   END
  150.                CASE ELSE
  151.                   PRINT "Bad number.  Try again."
  152.                   SLEEP 2
  153.                   CLS
  154.                   GOTO LoopStatement2
  155.             END SELECT
  156.             CLS
  157.             COLOR 3
  158.             PRINT "You are about to hear ";
  159.             COLOR 15
  160.             PRINT Name$;
  161.             COLOR 3
  162.             PRINT "."
  163.             COLOR 5
  164.             PRINT "It takes";
  165.             COLOR 12
  166.             PRINT Time%;
  167.             COLOR 5
  168.             PRINT "seconds to play."
  169.             PRINT
  170.             COLOR 14
  171.             FOR I = 5 TO 1 STEP -1
  172.                PRINT RIGHT$(STR$(I), 1); "...";
  173.                SLEEP 1
  174.             NEXT I
  175.             COLOR 10
  176.             PLAY "MB"
  177.             SELECT CASE Choice2
  178.                CASE 19
  179.                   StarSpangledBanner
  180.                CASE 20
  181.                   TheTrain
  182.                CASE 21
  183.                   WhereIsThumbkin
  184.                CASE ELSE
  185.                   PRINT "***Error in menu setup***"
  186.                   PRINT "Choice was:"; Choice2
  187.                   END
  188.             END SELECT
  189.             LOCATE 23, 1
  190.             PRINT "Press any key to continue...."
  191.             WHILE INKEY$ = "": WEND
  192.             CLS
  193. LoopStatement2:
  194.          LOOP
  195.       CASE ELSE
  196.          PRINT "Bad number.  Try again."
  197.          SLEEP 2
  198.          CLS
  199.          GOTO LoopStatement
  200.       END SELECT
  201.    CLS
  202.    COLOR 3
  203.    PRINT "You are about to hear ";
  204.    COLOR 15
  205.    PRINT Name$;
  206.    COLOR 3
  207.    PRINT "."
  208.    COLOR 5
  209.    PRINT "It takes";
  210.    COLOR 12
  211.    PRINT Time%;
  212.    COLOR 5
  213.    PRINT "seconds to play."
  214.    PRINT
  215.    COLOR 14
  216.    FOR I = 5 TO 1 STEP -1
  217.       PRINT RIGHT$(STR$(I), 1); "...";
  218.       SLEEP 1
  219.    NEXT I
  220.    COLOR 10
  221.    PLAY "MB"
  222.    SELECT CASE Choice
  223.       CASE 1
  224.          ALostBalloon
  225.       CASE 2
  226.          AngelsWeHaveHeardOnHigh
  227.       CASE 3
  228.          PreludioIV
  229.       CASE 4
  230.          PartitaInE
  231.       CASE 5
  232.          PreludioXV
  233.       CASE 6
  234.          Bingo
  235.       CASE 7
  236.          ChickenSoup
  237.       CASE 8
  238.          DownByTheStation
  239.       CASE 9
  240.          EentsyWeentsySpider
  241.       CASE 10
  242.          GoodEnoughToEat
  243.       CASE 11
  244.          HickoryDickoryDock
  245.       CASE 12
  246.          JohnJacobJingleheimerSchmidt
  247.       CASE 13
  248.          LittleCabinInTheWood
  249.       CASE 14
  250.          LittleGreenFrog
  251.       CASE 15
  252.          LittlePeterRabbit
  253.       CASE 16
  254.          OldMacDonaldHadAFarm
  255.       CASE 17
  256.          ShellBeCominRoundTheMountain
  257.       CASE ELSE
  258.          PRINT "***Error in menu setup***"
  259.          PRINT "Choice was:"; Choice
  260.          EXIT DO
  261.       END SELECT
  262.    LOCATE 23, 1
  263.    PRINT "Press any key to continue...."
  264.    WHILE INKEY$ = "": WEND
  265.    CLS
  266. LoopStatement:
  267. LOOP
  268. END
  269.  
  270. SUB ALostBalloon
  271.    PLAY "O2 L4 T160 MN <A >A2A G2G A2A G2G >C<BA"
  272.    PLAY "G2F ML E2. E2 MN <A >A2A G2G8G8 B-2B-"
  273.    PLAY ">C2C8C8 <B-GE- AF+E ML D2. D2 MN <A"
  274.    PLAY ">A2A G2G A2A G2G >C<BA G2F"
  275.    PLAY "ML E2. E2 MN <A >A2A G2G8G8 B-2B- >C2C8C8"
  276.    PLAY "ML <B-GE- MN AF+E ML D2. D2 MN E8D8 C+C+C+ E2E8D8"
  277.    PLAY "C+C+C+ E2E8F+8 G+2F+ G+2B ML G+2. G+ MN E8D8"
  278.    PLAY "C+C+C+ E2E8D8 C+EG+ B2A8A8 G+G+G+ G+G+G+"
  279.    PLAY "G+2. A2<A >A2A G2G A2A G2G"
  280.    PLAY ">C<BA G2F ML E2. E2 MN <A >A2A G2G8G8"
  281.    PLAY "B-2B- >C2C8C8 <B-GE- ML AF+ MN E ML D2. D2"
  282. END SUB
  283.  
  284. SUB AngelsWeHaveHeardOnHigh
  285.    PLAY "O2 MN L4 T120 BBB>D D.C8<B2 BAB>D <B.A8G2"
  286.    PLAY "BBB>D D.C8<B2 BAB>D <B.A8G2"
  287.    PLAY "L8 ML >D2EDC<B>C2DC<BAB2>C<BAGA4. MN L4 D8D2 GAB>C< ML B2A P4"
  288.    PLAY "L8 >D2EDC<B>C2DC<BAB2>C<BAGA4. MN L4 D8D2 GAB>C< ML B2A2G1"
  289. END SUB
  290.  
  291. SUB Bingo
  292.    PLAY "O2 T160 MS L8 C FFCC DDCC"
  293.    PLAY "FFGG A4F4 A4A4 B-B-B-4"
  294.    PLAY "G4G4 AAA4 F4F4 GGGF"
  295.    PLAY "ECDE F4F"
  296. END SUB
  297.  
  298. SUB ChickenSoup
  299.    PLAY "MN L8 O2 T160 CD- CD-CD-E2 D-CC4EF EFEFG2"
  300.    PLAY "FEE2. A-4A-4B-4.A- G4F4 ML ED-C4 MN A-4A-4B-4.A-"
  301.    PLAY "G4F4 ML ED-C4 MN <B-4B-4>D-4<B-4 >G2G4A-4 B-4A-4G4.F"
  302.    PLAY "ED-C2 P4 P1 P2 P4 CD- CD-CD-E2"
  303.    PLAY "D-CC4EF EFEFG2 FEE2."
  304.    PLAY "A-4A-4B-4.A- G4F4 ML ED-C4 MN A-4A-4B-4.A- G4F4 ML ED-C4"
  305.    PLAY "MN <B-4>D-4F4B-4 >D-4.D-C4<B-4 P4 >C4C2 CCC2. <B4>C4D4.C"
  306.    PLAY "<B4A-4G4F4 B4>C4D4CC <B4.A-G4F4 EFG2F4"
  307.    PLAY "EFG2. BA-A-GBA-A-G G2.CD- CD-CD-E2"
  308.    PLAY "D-CC4EF EFEFG2 FEE2."
  309.    PLAY "A-4A-4B-4.A- G4F4 ML ED-C4 MN A-4A-4B-4.A- G4F4 ML ED-C4"
  310.    PLAY "MN <B-4>D-4F4B-4 >D-4<B-4B-4B-4 >C1 CCC2."
  311. END SUB
  312.  
  313. SUB DownByTheStation
  314.    PLAY "MS O2 T160 L8 D4DEF+4F+4 EDEF+D4<A4>"
  315.    PLAY "F+F+F+GAAAA G4GAF+4 P4"
  316.    PLAY "DDDEF+4F+4 EDEF+D4<A4>"
  317.    PLAY "D4D4A4A4 E4F+4D4 P4"
  318. END SUB
  319.  
  320. SUB EentsyWeentsySpider
  321.    PLAY "MS O2 L8 T160 C F4FF4G A4.A4A"
  322.    PLAY "G4FG4A F4 P8 P4 P8 A4.A4B-"
  323.    PLAY ">C4.C4. <B-4AB-4>C <A4 P8 P4 P8"
  324.    PLAY "F4.F4G A4.A4. G4FG4A"
  325.    PLAY "F4.C4C F4FF4G A4.A4A"
  326.    PLAY "G4FG4A F4 P8 P4"
  327. END SUB
  328.  
  329. SUB GoodEnoughToEat
  330.    PLAY "O2 T120 L16 MN A8.AB-8.>C<G8.GA8.B-8 E-2 P8. GB-8.>C D8D4D8D-8.D-D-4"
  331.    PLAY "C1 D8.<B->C8.<B->D8D-4D-8 C8.<AB-8>C4<B4B8"
  332.    PLAY "B-8.GA8.B-A4F4 G2.B-8.B- ML A4B-4>C4<G4A4B-4"
  333.    PLAY "E-2 MN P8. GB-8.>C D4.DD-8.D-D-8.D- C2 P8. <B->C8.C+"
  334.    PLAY "D8.<B->C8D4D-4. C8.<AB-8.B>C8<B4B8"
  335.    PLAY "B-8.E-G8.B->D8D8D8 ML D4<F8 MN B-2. P8 B-8"
  336.    PLAY "B-8.B-B-4A-4B-8.B- F8.F P4 P4 E-4 G-8.G-E-8.E-F8.FD-8.D-"
  337.    PLAY "E-2. P8. A- B-8.B-B-4A-8.A-B-8.B-4 >D-8.D- P2 D-4 D8D4C+8D8.<B-G8.F"
  338.    PLAY "B-2.B-4 A8.AB-8.>C<G8.GA8.B- E-2 P8. GB-8.>CD4D8D-4D-4D-8"
  339.    PLAY "C1 D8.<B->C8.<B->D4D-8.D-16. C8.<AB-8.A>C4<B4"
  340.    PLAY "B-8.GB-8.>CD8.CD8.E- F4 ML F8D8 MN P2"
  341.    PLAY "F8F8E8.E-8C+8D8.<B-G4 B-1"
  342. END SUB
  343.  
  344. SUB HickoryDickoryDock
  345.    PLAY "MS O2 L8 T160 EFGFED E P8 P8 P4 E"
  346.    PLAY "E P8 GF P8 D E P8 P8 P4 E"
  347.    PLAY "E P8 EG4G F P8 FA4."
  348.    PLAY "GAGFED C P8 P8 P4 P8"
  349. END SUB
  350.  
  351. SUB JohnJacobJingleheimerSchmidt
  352.    PLAY "O2 MS T160 L8 F+2E4D4 C+GGGG4 P4"
  353.    PLAY "G2A4E4 F+2 P4 P8 <A A>F+F+F+F+4.<A"
  354.    PLAY "B4>GGGG4 P4 A4A8.B16AGF+E"
  355.    PLAY "DAAAAGF+E D2 P2"
  356. END SUB
  357.  
  358. SUB LittleCabinInTheWood
  359.    PLAY "MS T160 O2 L4 CFFG FEG2 CGGG8A8"
  360.    PLAY "GFA2 CAAB- AGB-2"
  361.    PLAY "EEDE F2. P4 >C+<C+>C+<C+ C+C+>C+ P4"
  362.    PLAY "<CGGA GFA2 CAAB-"
  363.    PLAY "A8A8GB-2 EEDE F1"
  364. END SUB
  365.  
  366. SUB LittleGreenFrog
  367.    PLAY "MS O2 T160 L4 C FF8G8A8G8F >CCC<C"
  368.    PLAY "FF8G8A8G8F G2.C"
  369.    PLAY "FF8G8A8G8F >CCC<A8B-8"
  370.    PLAY ">C<B-AG F2."
  371. END SUB
  372.  
  373. SUB LittlePeterRabbit
  374.    PLAY "MS O2 T120 L16 D8.DD8.C<B8.>DG8.A B8.BB8.AG2"
  375.    PLAY "E8.EE8.F+G8.F+G8.E D8.ED8.<B>D2"
  376.    PLAY "D8.DD8.C<B8.>DG8.A B8.BB8.AG4G8.G"
  377.    PLAY "A8.AA8.AG4F+4 G1"
  378. END SUB
  379.  
  380. SUB OldMacDonaldHadAFarm
  381.    PLAY "T120 O2 MS L8 FFFC DDC4 AAGG"
  382.    PLAY "F4.C FFFC DDC4"
  383.    PLAY "AAGG F4.C16C16 FFFC16C16"
  384.    PLAY "FFF4 F16F16FF16F16F F16F16F16F16FF"
  385.    PLAY "FFFC DDC4 AAGG F2"
  386. END SUB
  387.  
  388. SUB PartitaInE
  389.    PLAY "O4 T120 ML L16 ED+ E8<B8G+8B8 EF+ED+ E8<B8G+8B8"
  390.    PLAY "EBF+BG+BABG+BF+BE>ED+C+<B>ED+C+<BAG+F+"
  391.    PLAY "EBF+BG+BABG+BF+BE>ED+C+<B>ED+C+<BAG+F+"
  392.    PLAY "EF+G+AB>C+D+EF+G+AF+ G+BEF+G+AB>C+D+EC+D+"
  393.    PLAY "E<BABG+BABG+BF+B E>ED+C+<BE>C+<EBEAE"
  394.    PLAY "G+BF+BG+BABG+BF+B E>ED+C+<BE>C+<EBEAE"
  395.    PLAY "G+ MN EEED+EEEF+ED+EEEG+ ML EF+EG+EAEF+E"
  396.    PLAY "G+ MN EEED+EEEF+ED+EEEG+ ML EF+EG+EAEF+E"
  397.    PLAY "G+EG+EG+EG+EG+EG+E"
  398.    PLAY "G+EG+D+G+EG+D+G+EG+D+"
  399.    PLAY "G+EG+DG+EG+DG+EG+D"
  400.    PLAY "AEAC+AEAC+AEAC+"
  401.    PLAY "AEA<B"
  402.    PLAY ">AEA<B>AEA<B"
  403.    PLAY ">G+EG+<B>G+EG+<B>G+EG+<B"
  404.    PLAY ">G+EG+<A>G+EG+<A>G+EG+<A"
  405.    PLAY ">F+EF+<A>F+EF+<A>F+EF+<A"
  406.    PLAY ">F+EF+<G+>F+EF+<G+>F+EF+<G+"
  407.    PLAY "MN >EEE<G+>EEE<G+>EEE<G+"
  408.    PLAY ">EEE<F+>EEE<F+>EEE<F+"
  409.    PLAY "ML >D+ED+<F+>D+ED+<F+>D+ED+<F+"
  410.    PLAY "EF+EF+G+BEF+G+BEF+ G+AG+AB>E<G+AB>E<G+A"
  411.    PLAY "B>C+<B>C+DG+<B>C+DG+<B>C+"
  412.    PLAY "DBG+ED<BG+EDC+D<B >C+D+C+D+FG+C+D+FG+C+D+"
  413.    PLAY "FF+FF+G+>C+<FF+G+>C+<FF+ G+AG+AB>F<G+AB>F<G+A"
  414.    PLAY "B>G+FC+BG+AF+FG+C+<B A>C+<AF+>F+D+EC+CD+<G+F+"
  415.    PLAY "EG+EC+EG+>C+<G+>EC+G+C+ CD+C<G+>G+GG+GG+D+EC+"
  416.    PLAY "CD+C<G+>F+FF+FF+D+EC+ CD+C<G+AG+AG+AD+EC+"
  417.    PLAY "CF+C+F+D+F+C+F+CF+D+F+"
  418.    PLAY "<G+>F+>D+<F+>C<F+>D+<F+>C<F+>D+<F+"
  419.    PLAY "<G+>E>C+<E>E<E>C+<E>E<E>C+<E"
  420.    PLAY "<G+>F+>D+<F+>C<F+>D+<F+>C<F+>D+<F+"
  421.    PLAY "<G+>E>C+<E>E<E>C+<E>E<E>C+<E"
  422.    PLAY "<G+>G>C+<G>E<G>C+<G>E<G>C+<G"
  423.    PLAY "<G+>G>C+<G>E<G>C+<G>E<G>C+<G"
  424.    PLAY "<G+>G+>C+<G+>D+<G+>C+<G+>D+<G+>C+<G+"
  425.    PLAY "<G+>F+>C<F+>D+<F+>C<F+>D+<F+>C<F+"
  426.    PLAY "C+4"
  427. END SUB
  428.  
  429. SUB PreludioIV
  430.    PLAY "O3 T120 L16 ML <C >CE-GE-CE-C <G >C <E- >C"
  431.    PLAY "<C >CE-GE-CE-C <G >C <E- >C"
  432.    PLAY "<C >CFA-FCFC <A- >C <F >C"
  433.    PLAY "<C >CFA-FCFC <A- >C <F >C"
  434.    PLAY "<C B>DFD<B>D<B A- B F B"
  435.    PLAY "C B>DFD<B>D<B A- B F B"
  436.    PLAY "C G>CE-C<G>C<G E- G C G"
  437.    PLAY "<B- >G>CE-C<G>C<G E- G C G"
  438.    PLAY "<A- >G>CE-C<G>C<G E- G C G"
  439.    PLAY "<G >G>CE-C<G>C<G E- G C G"
  440.    PLAY "<F+ >A>CE-C<A>C<A E- A C A"
  441.    PLAY "<F+ >A>CE-C<A>C<A F+ A D A"
  442.    PLAY "<G >AB->D<B-AB-A D A <B- >A"
  443.    PLAY "<G >GB->D<B-GB-G <B- >G <G >G"
  444.    PLAY "<E- >B->DGD<B->D<B- G B- E- B-"
  445.    PLAY "C A>E-GE-<A>E-<A C A <A >A"
  446.    PLAY "<D >A>CF+C<A>C<A D A <A >A"
  447.    PLAY "<D >A>CF+C<A>C<A D A <A >A"
  448.    PLAY "<D >B->DGD<B->D<B- D B- <B- > B-"
  449.    PLAY "<D >>CF+AF+CF+C <E- >C <C >C"
  450.    PLAY "<<D >>DGB-GDGD <G >D <D >D"
  451.    PLAY "<<D >>DF+>C<F+DF+D <A >D <F+ >D"
  452.    PLAY "<<E- >>C+GB-GC+GC+ <G >C+ <E- >C+"
  453.    PLAY "<<D >>CE-AE-CE-C <F+ >C <D >C"
  454.    PLAY "<<D >B->EGE<B->E<B- E B- C+ B-"
  455.    PLAY "<D >A>CGC<A>C<A E- A C A"
  456.    PLAY "<D >A>CF+C<A>C<A D A <A >A"
  457.    PLAY "<D >GB->E<B-GB-G C+ G <B- >G"
  458.    PLAY "<D >F+A>E-<AF+AF+ C F+ <A >F+"
  459.    PLAY "<D >GB->D<B-GB-G <B- >G <G >G"
  460.    PLAY "<D >GA>C<AGAG E- G C G"
  461.    PLAY "<D >F+A>C<AF+AF+ D F+ <A >F+"
  462.    PLAY "<G >F+A>C<AF+AF+ E- F+ C F+"
  463.    PLAY "<G >GA>C<BGBG D G <B >G"
  464.    PLAY "<G >A>CF+C<A>C<A E- A C A"
  465.    PLAY "<G >>CF+AF+CF+C <E- >C <C >C"
  466.    PLAY "<<G >B>DGD<B>D<B G B D B"
  467.    PLAY "<G >B>DFD<B>D<B A- B F B"
  468.    PLAY "<G >G>CE-C<G>C<G E- G C G"
  469.    PLAY "<G >F+>CE-C<F+>C<F+ E- F+ C F+"
  470.    PLAY "<G >F+>CE-C<F+>C<F+ E- F+ C F+"
  471.    PLAY "<G >GB>D<BGB>DE-C<A>F+"
  472.    PLAY "<G4 P4 P4"
  473. END SUB
  474.  
  475. SUB PreludioXV
  476.    PLAY "O3 ML L16 T104 <C >G>CE <<E >G>CE <<G >G>CD <<<G >>B>DG"
  477.    PLAY "<<D >A>DG <<F >A>DF <<A >A>DE <<<A >>>CEA"
  478.    PLAY "<<E >B>EA <E B>EG <<A >>CEF <<B >G>DF"
  479.    PLAY "<C G>DE <<E >G>CE <<F+ >A>CD <<G+ >EB>D"
  480.    PLAY "<<A >EB>C <<C >EA>C <<D >FAB- <E >CGB-"
  481.    PLAY "<F >CGA <E >CFA <D >DFB <C >EG>C"
  482.    PLAY "<<G >DG>C <<<G >>DGB <G >CGB <<G >>CF+A"
  483.    PLAY "<G B>DA <<G >B>DG <G A>CG <<G >A>CF"
  484.    PLAY "<G4 P8 P16 <GB>DFGB>D"
  485.    PLAY "<B GB>D FGB>D <B GB>DFGBF"
  486.    PLAY "E>C<GF E>C<GE D>C<FE DBFD"
  487.    PLAY "CBED CAEC <B>ADC <B>GD<B"
  488.    PLAY "A>GC<B A>F+C<A B>FDC <B>FD<B"
  489.    PLAY "G>EC<B A>EC<A F+>D<BA G>D<BG"
  490.    PLAY "E>C<AG F+>C<AF+ D>C<BA BG>D<F"
  491.    PLAY "GEF>D C<BAG >FDE-C <F+>E-DC"
  492.    PLAY "<B>D<BG A-FGD E-F+A>C <D>C<FB"
  493.    PLAY ">C1"
  494. END SUB
  495.  
  496. SUB ShellBeCominRoundTheMountain
  497.    PLAY "O2 MS T180 L4 CD FFFF DC<A>C"
  498.    PLAY "F1.FG AAAA >C<AGF"
  499.    PLAY "G1.>C<B- AAAA GFFF"
  500.    PLAY "DDDD GFED CCCC"
  501.    PLAY "AGDE F1."
  502. END SUB
  503.  
  504. SUB StarSpangledBanner
  505.    PLAY "T120 O2 MN L4 G8.E16CEG>C2E8.D16C<EF+G2G8G8>E4.D8C<B2A8.B16"
  506.    PLAY ">CC<GEC>E8.E16EFGG2F8E8DEFF2FE4.D8C<B2A8B8>C<EF+G2G>CCC8<B8"
  507.    PLAY "AAA>DF8E8D8C8C<B2G8G8>C4.D8E8F8G2C8D8E4.F8DC2"
  508. END SUB
  509.  
  510. SUB TheTrain
  511.    PLAY "O2 MS L8 T160 F4 C4AAA4B-4 A4G4G2"
  512.    PLAY "CCG4 ML G4A4 MS GFF4F4A4"
  513.    PLAY "C4AAA4B-4 A4G4G2"
  514.    PLAY ">CCC4<EEE4F2."
  515. END SUB
  516.  
  517. SUB WhereIsThumbkin
  518.    PLAY "MS O2 T160 L4 DEF+D DEF+D"
  519.    PLAY "F+GA2 F+GA2 A8B8A8G8F+D"
  520.    PLAY "A8B8A8G8F+D D<A>D2 D<A>D2"
  521. END SUB
  522.  
  523.